Apple Reference & Presen…tion Library 2 (Reseller)/Apple R&P Lib Reseller v2.0.iso/3-Demos/Tutorials/Macintosh SE⁄30 Training/Apple Macintosh SE⁄30/Apple Macintosh SE_30/background_71284.txt

Text File | 1989-08-22 | 7KB | 276 lines

-- background: 71284 from stack: in
-- bmap block id: 71503
-- flags: 0000
-- background id: 0
-- name: supportBack
----- HyperTalk script -----
--on closeBackground
global mapLoc
put 20 into mapLoc
end closeBackground
--—————————————————————————————————————————————————————————————————————
on supportThree       -- animation for board and drive upgrade
  wait 30
  visual dissolve
  go card "support3a" -- no case
  runningPause
  visual dissolve
  go card "support3b" -- board out
  visual dissolve
  go card "support3c"
  visual dissolve
  go card "support3d"
  runningPause
  visual dissolve
  go card "support3e" -- no board
  runningPause
  visual dissolve
  go card "support3f" -- drive out
  visual dissolve
  go card "support3g"
  visual dissolve
  go card "support3h"
  runningPause
  visual dissolve
  go card "support3i" -- no drive
  runningPause
  visual dissolve
  go card "support3j" -- drive in
  runningPause
  visual dissolve
  go card "support3k"
  visual dissolve
  go card "support3l"
  visual dissolve
  go card "support3m"
  runningPause
  visual dissolve
  go card "support3n" -- board in
  runningPause
  visual dissolve
  go card "support3o"
  visual dissolve
  go card "support3p"
  visual dissolve
  go card "support3q"
  runningPause
  visual dissolve
  go card "support3r" -- final
end supportThree
--—————————————————————————————————————————————————————————————————————
on supportFour       -- animation for board only upgrade
  wait 30
  visual dissolve
  go card "support4a" -- no case
  runningPause
  visual dissolve
  go card "support4b" -- board out
  visual dissolve
  go card "support4c"
  visual dissolve
  go card "support4d"
  runningPause
  visual dissolve
  go card "support4e" -- no board
  runningPause
  visual dissolve
  go card "support4f" -- new board
  runningPause
  visual dissolve
  go card "support4g" -- board in
  visual dissolve
  go card "support4h"
  visual dissolve
  go card "support4i"
  runningPause
  visual dissolve
  go card "support4j" -- drive in
end supportFour
--—————————————————————————————————————————————————————————————————————
on supportFive        -- animation expansion card
  wait 30
  visual dissolve
  go card "support5a" -- no case
  runningPause
  visual dissolve
  go card "support5b" -- board appears
  runningPause
  visual dissolve
  go card "support5c" -- board in
  visual dissolve
  go card "support5d"
  visual dissolve
  go card "support5e"
  runningPause
  visual dissolve
  go card "support5f" -- drive out
end supportFive
--—————————————————————————————————————————————————————————————————————



-- part 1 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=428 top=317 right=342 bottom=456
-- title width / last selected line: 0
-- icon id / first selected line: 18611 / 18611
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: prev
----- HyperTalk script -----
on mouseUp
  if "support3" is in the name of this card then
    visual scroll right
    go card "support2"
    exit mouseUp
  end if

  if "support4" is in the name of this card then
    visual scroll right
    go card "support3"
    exit mouseUp
  end if

  if "support5" is in the name of this card then
    visual scroll right
    go card "support4"
    exit mouseUp
  end if

  visual scroll right
  go prev
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=455 top=317 right=342 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 18612 / 18612
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: next
----- HyperTalk script -----
on mouseUp
  if "support3" is in the name of this card then
    visual scroll left
    go card "support4"
    exit mouseUp
  end if

  if "support4" is in the name of this card then
    visual scroll left
    go card "support5"
    exit mouseUp
  end if

  if "support5" is in the name of this card then
    visual scroll left
    go card "support6"
    exit mouseUp
  end if

  visual scroll left
  go next
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=482 top=317 right=342 bottom=510
-- title width / last selected line: 0
-- icon id / first selected line: 18613 / 18613
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: return
----- HyperTalk script -----
on mouseUp
  pop card into lastPush
  if the short name of this stack is not in lastPush then
    visual dissolve
    go card "Map"
  else
    visual dissolve
    go lastPush
  end if
end mouseUp



-- part 4 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=128 top=23 right=45 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 18
-- style flags: 0
-- line height: 20
-- part name: cardTitle


-- part 5 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=128 top=70 right=313 bottom=509
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 2
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cardText


-- part 12 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=128 top=0 right=22 bottom=508
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 21
-- text size: 18
-- style flags: 10240
-- line height: 19
-- part name: Title


-- part 13 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=1 top=1 right=16 bottom=40
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 9
-- style flags: 0
-- line height: 12
-- part name: Menu
----- HyperTalk script -----
on mousedown
  global checkedItem, clickTime
  put 9 into checkedItem
  mainMenu
  put the ticks into clickTime
end mousedown